68000: The Powerhouse Behind The Macintosh, Atari ST, 8c Amiga 



COMPUTB 

The Leading Magazine Of Home, Educational, And Recreational Computing 



$2.95 
February 
1986 
Issue 69 
Vol. 8, No. 2 

S3 75 Canada i» 
02193 ^ 
ISSN 0194-357X 





A Powerful Spreadsheet 
Programs Inside For II + , He, I c 




High Rise 

Exceptional Arcade Game 
For Commodore 64, 128, 
Atari, And Apple 



Cornmodore 
Speedy Strings 
A New TechniqMe 
For Fast-LojOcJihg Data 

ST Doodler 
A Drawing Progr^ 
l^or 520$T Lo^o 

IBM Screen 
Instant AnlmatTdn 
With Page-Flippfn 

High-Speed Search 
For Atari bAsIC 

introduction To 
AmigoDOS, Part 

02 




i,i 



1 ! ■ 

f \ : 




You're a construction worker, trapped 
in a partially completed high-rise 
building after dark. Can you make it 
safely to the ground floor without 
being snared by a giant bird or zapped 
by the patrol robot? This unique game 
was originally written in machine 
language for the Commodore 64. 
We've added new versions, also writ- 
ten completely in machine language, 
for Atari and Apple Il-series comput- 
ers. It's one of the best arcade-style 
games we've ever published, particu- 
larly for the Apple. A joystick is re- 
quired to play the 64 version. The 
Atari version also requires a joystick 
and runs on any 400/800, XL, or XE 
with at least 48K RAM. 



HIGH RISE 



Charles McGuyer 



The time is the not-too-distant fu- 
ture, and the place is a downtown 
high-rise building under construc- 
tion. You're just finishing the day's 
work when you realize that it's al- 
ready dark. Everyone else has gone 
home, leaving you alone in a shad- 
owy, multistory maze of naked 
girders and bare concrete. A chill 
creeps down your spine as you 
think about the recentiy installed 
antitheft robot. It patrols the struc- 
ture from dusk to dawn, automati- 
cally disposing of any intruder it 
might find. Even worse, the half- 
completed building's shell is infest- 
ed with nocturnal birds of prey. 
They're big enough to carry you 
away, and so hungry that they 
roam the empty structure all night 
long, swooping easily from one 
floor to the next. 

Your only hope is to use the 
temporary elevators. They move 
randomly during the night hours, 
going up and down, stopping at 
some floors, skipping others. With 
skill and a littie luck, you just might 
evade the dangers around you and 
make it safely to the ground floor — 
but it won't be a cakewalk. 

Since all three versions of 
"High Rise" are similar, follow the 
general game rules under the Com- 
modore 64 instructions. Then refer 
to the specific section for your com- 
puter for additional information 
and typing instructions. 

Commodore 64 Version 

Because the 64 version of High Rise 
is written entirely in machine lan- 
guage, you'll need to type it in with 



"MLX," the machine language en- 
try program listed elsewhere in this 
issue. Read the MLX instructions 
carefully before you type in and 
save the program. Here's the infor- 
mation you'll need for MLX: 

Starling address: COOO 
Ending address: CE7F 

After you save High Rise, turn 
the computer off, plug a joystick 
into port 2, then turn it on again. 
Load the game with LOAD"file- 
name", 8,1 for disk or LOAD'7z7e- 
name",l,\ for tape, and enter SYS 
49152 to start it up (substitute your 
own filename, of course). 

The object of High Rise is to 
make your way to the ground floor 
via the elevators while evading the 
birds and patrol robot. When the 
game begins, you'll see several 
floors of the building and a number 
of elevators moving up and down. 
You can jump on any elevator that 
comes to your floor (move into the 
elevator; it picks you up automati- 
cally), but there's no way to control 
its direction or how far it goes. 
They're just temporary elevators, 
used to transport materials and 
workers during daytime hours. The 
trick is to catch one that's moving in 
the direction you want, and get off 
to catch another before it starts 
moving in an unwanted direction. 

When you reach the lowest 
floor shown, the screen scrolls up 
one floor, revealing the next lower 
level. Once you reach ground floor, 
the player sprints off the screen to 
safety and you can play another 
game. 

The patrol robot always starts 
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on an upper floor and moves sys- 
tematically through the building, 
traveling up and down through 
special shafts that are closed to you. 
Designed to discourage theft and 
vandalism, its technique is simple 
and effective: It pushes any intrud- 
ers (including you) off the building. 
If it runs into an elevator and de- 
tects you inside, it sends a high- 
voltage charge through the elevator 
shell until you drop. 

Meanwhile, the birds of prey 
have no trouble moving from one 
floor to the next, and they'll carry 
you away whenever they get a 
chance. Stay as far from an ap- 
proaching bird as you can, since 
they can take you even when 
you're inside an elevator. The birds 
present another hazard as well. 
Whenever one of them hits the pa- 
trol robot, the hapless fowl is im- 
mediately zapped and plummets 
straight to earth. If you're caught in 
the path of a falling bird, you'll be 
knocked down, too. 

When the game begins, you 
have five players. Each time you're 
zapped or fall from the building, 
you lose a player; play ends when 
all five have been lost. When the 
game starts, you're on the 10th 
floor of the building. Moving down 
a level earns you 100 points. If you 
reach the bottom safely, you'll have 
another chance to play, beginning 
at a higher floor. High Rise keeps 
track of the highest score attained 
in the current session, as well as 
your score in the current game. 

Atari Version 

The Atari version of High Rise must 
be typed in with "Atari MLX," list- 
ed elsewhere in this issue. Be sure 
to read the MLX instructions care- 
fully before entering and saving the 

program. When you're ready to 
save the program, choose the MLX 
option to make a boot disk or tape. 
Here are the addresses you'll need 
for MLX: 

Starting address: 12288 
Ending address: 14663 
Run/inil address: 12288 

Once you've made a boot disk 
or tape, follow the instructions in 
MLX for activating the program. 
This version of High Rise is quite 
similar to the Commodore 64 game. 
However, you begin at the 15th 
floor of the building rather than the 
10th, and the birds aren't zapped 
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when they meet the robot. Also, in 
this version the robot does not 
shock the elevator. 

Appie Version 

High Rise for the Apple Il-series 
computers must be entered with 
the "Apple MLX" machine lan- 
guage entry program found else- 
where in this issue. Since High Rise 
loads into the memory area normal- 
ly used by BASIC programs, you 
must relocate the start of BASIC 
memory before loading MLX to type 
High Rise. To do this, enter the 
following line in direct mode (with- 
out a line number) and press 
RETURN: 

POKE 104,28: POKE 7168,0: NEW 

Then load and run MLX. Follow the 
MLX instructions carefully, using 
these addresses: 

Starting address: 0801 
Ending address: 1BD8 

After you finish typing High 
Rise, save at least one copy on disk. 
Once that's done, you can activate 
High Rise by typing BRUN filename 
(substituting your own filename, of 
course). 

The Apple version doesn't in- 
clude birds, so the patrol robot is 
the only hazard you need to avoid. 
Move your player with keyboard 
controls: Press the left-arrow key to 
move left, right-arrow to move 
right, and the space bar to stop. 



Please refer to the *'MLX" articles in this issue 
before entering the following listings. 




"High Rise" for the Commodore 64 fea- 
tures smooth machine language anima- 
tion and eerie sound effects. 



Program 1 : Commodore 64 
High Rise 

C000:A9 00 A8 85 FB A9 20 85 10 

C008:FC A9 00 85 FD A9 CB 85 7E 

C010:FE Bl FD 91 FB C8 D0 F9 F4 

C018:E6 FE E6 FC A5 FC C9 24 52 

C020:D0 EF A0 18 B9 EE C9 99 52 

C028:00 D4 88 10 F7 A0 04 A9 E4 



C030 


:30 


99 


88 


OA 


88 


10 


FA 


20 


88 


C038 


:E7 


08 


20 


44 


E5 


A9 


05 


8D 


95 


C040 


:51 


OA 


A9 


31 


8D 


5F 


OA 


A9 


8E 


C048 


:30 


8D 


60 


OA 


A9 


00 


8D 


20 


86 


0050 


:D0 


8D 


21 


D0 


8D 


EB 


09 


8D 


00 


C058 


:88 


09 


A0 


04 


B9 


88 


OA 


99 


04 


C060 


:91 


07 


88 


10 


F7 


20 


A7 


07 


D5 


C068:20 


DE 


06 


AD 


97 


09 


85 


FB 


50 


C070 


:20 


8B 


00 


18 


AD 


97 


09 


69 


47 


C078 


:07 


8D 


97 


09 


09 


24 


F0 


03 


34 


C080 


:40 


6B 


00 


A9 


01 


8D 


97 


09 


EO 


C088 


:4C 


AB 


00 


A9 


04 


85 


FO 


A2 


A0 


C090 


:19 


A0 


00 


A9 


10 


91 


FB 


OA 


4B 


C098 


:F0 


10 


18 


A5 


FB 


69 


28 


85 


4F 


C0A0 


:FB 


A5 


FO 


69 


00 


85 


FO 


40 


10 


C0A8 


:93 


00 


60 


A2 


00 


A9 


ID 


9D 


D8 


C0B0 :A0 


04 


9D 


68 


05 


9D 


30 


06 


02 


00 B8 


:9D 


F8 


06 


9D 


00 


07 


E8 


E0 


B6 


0000 


:1F 


D0 


EA 


AC 


B0 


09 


00 


0A 


66 


0008 


:F0 


2D 


B9 


A6 


09 


85 


FB 


08 


D4 


O0D0 :B9 


A6 


09 


85 


FO 


08 


80 


B0 


3F 


00 D8 


:C9 


A2 


04 


A0 


00 


A9 


IB 


91 


E0 


O0E0 


:FB 


OA 


F0 


10 


18 


A5 


FB 


69 


EA 


00 E8 


:28 


85 


FB 


A5 


FO 


69 


00 


85 


00 


00 F0 


:F0 


40 


DD 


00 


40 


03 


00 


A0 


5F 


00 F8 


:00 


80 


B0 


09 


A9 


80 


A2 


00 


E4 


0100 


:9D 


F8 


07 


E8 


E0 


05 


D0 


F8 


B5 


0108 


:A9 


FF 


8D 


15 


D0 


A2 


00 


AD 


22 


0110 


:86 


09 


9D 


«ll 


D0 


E8 


E8 


18 


21 


0118 


:AD 


86 


09 


69 


20 


8D 


86 


09 


Fl 


0120 


:E0 


0A 


F0 


03 


40 


0F 


01 


A9 


B0 


0128 


:32 


8D 


86 


09 


A9 


FF 


8D 


10 


lA 


0130 


:D0 


A9 


0F 


8D 


25 


D0 


A9 


02 


03 


0138 


:8D 


26 


D0 


A2 


00 


AD 


87 


09 


DF 


0140 


:9D 


00 


D0 


E8 


E8 


18 


AD 


87 


05 


0148 


:C9 


69 


38 


8D 


87 


09 


E0 


0A 


lA 


O150:F0 


03 


40 


3D 


01 


A9 


18 


8D 


DC 


0158 


:87 


09 


A0 


01 


B9 


5F 


OA 


99 


B0 


0160 


:A2 


06 


88 


10 


F7 


A9 


00 


8D 


30 


0168 


:EB 


09 


A9 


F0 


8D 


0A 


D0 


A9 


78 


0170 


:B8 


8D 


0B 


D0 


A9 


70 


8D 


00 


88 


0178 


:D0 


AD 


IE 


D0 


A9 


68 


8D 


0D 


B7 


0180 


:D0 


A9 


14 


8D 


0E 


D0 


8D 


0F 


10 


0188 


:D0 


A9 


8A 


8D 


FF 


07 


40 


D8 


96 


0190 


:01 


8A 


48 


A2 


04 


A0 


00 


88 


F5 


0198 


:D0 


FD 


OA 


D0 


FA 


68 


AA 


60 


99 


O1A0 


:A0 


98 


09 


B9 


92 


09 


DD 


01 


ED 


01A8 


:D0 


F0 


09 


08 


00 


05 


F0 


0D 


87 


O1B0 :80 


98 


09 


60 


A9 


02 


9D 


88 


F8 


01 B8 


:09 


20 


61 


02 


60 


A0 


00 


80 


93 


0100:98 


09 


60 


A5 


05 


09 


3F 


F0 


2E 


0108:05 


09 


04 


F0 


07 


60 


A9 


00 


DD 


O1D0:8D 


18 


D4 


00 


40 


B7 


03 


60 


E4 


01D8 


:A2 


00 


20 


91 


01 


20 


09 


03 


B0 


01 E0 


:20 


69 


04 


20 


3B 


03 


20 


A0 


33 


01 E8 


:01 


20 


6B 


02 


20 


03 


01 


20 


A2 


01 F0 


:1B 


05 


20 


B2 


04 


20 


BD 


02 


87 


01 F8 


:20 


2F 


08 


BD 


88 


09 


09 


01 


4D 


0200 


:F0 


41 


90 


02 


B0 


10 


FE 


01 


45 


0208 


:D0 


BD 


01 


D0 


09 


E0 


F0 


25 


6B 


0210 


:20 


61 


02 


40 


DA 


01 


DE 


00 


77 


0218 


:09 


BD 


00 


09 


F0 


03 


40 


DA 


AD 


0220 


:01 


BD 


89 


09 


9D 


88 


09 


20 


86 


0228 


:61 


02 


20 


9A 


08 


29 


IF 


9D 


83 


0230 


:C0 


09 


40 


DA 


01 


A9 


01 


9D 


14 


0238 


:88 


09 


9D 


89 


09 


20 


61 


02 


15 


0240 


:40 


DA 


01 


DE 


01 


D0 


BD 


01 


90 


0248 


:D0 


09 


40 


F0 


06 


20 


61 


02 


F5 


0250 


:40 


DA 


01 


A9 


00 


9D 


88 


09 


D6 


0258 


:9D 


89 


09 


20 


61 


02 


40 


DA 


D3 


0260 


:C1 


E8 


E8 


E0 


0A 


F0 


01 


60 


A2 


0268 


:A2 


00 


60 


A0 


05 


B9 


92 


09 


53 


O270:OD 


0B 


D0 


F0 


04 


88 


10 


F5 


21 


0278 


:60 


AD 


00 


DO 


29 


0F 


09 


0B 


8B 


0280 


:F0 


ID 


09 


07 


F0 


0B 


A9 


00 


76 


0288 


:8D 


0B 


D4 


A9 


85 


8D 


FD 


07 


32 


0290 


:60 


AD 


0A 


D0 


09 


F5 


F0 


F8 


01 


0298 


:20 


F4 


02 


20 


AD 


02 


60 


AD 


AC 


O2A0 


:0A 


D0 


09 


17 


F0 


EA 


20 


11 


8E 


02 A8 


:03 


20 


AD 


02 


60 


A9 


81 


8D 


34 


O2B0:0B 


D4 


A9 


22 


8D 


08 


D4 


A9 


28 


02 B8 


:80 


8D 


0B 


D4 


60 


OE 


54 


OA 


42 


0200 


:AD 


54 


OA 


F0 


01 


60 


AO 


52 


OF 


0208 


:0A 


B9 


0B 


OA 


8D 


00 


D4 


B9 


FF 


02 D0 


:0O 


OA 


8D 


01 


D4 


A9 


11 


8D 


CD 


02 D8 


:04 


D4 


08 


08 


00 


20 


F0 


09 


AO 


02 E0 


:80 


52 


OA 


A9 


23 


8D 


54 


OA 


F7 



C2E8:60 A0 00 8C 52 CA A9 23 C3 
C2F0:8D 54 CA 60 EE 0A D0 AD A0 
C2F8:EA C9 C9 14 F0 05 C9 28 38 
C300:F0 06 60 A9 88 4C 0D C3 7B 
C308:A9 89 4C 0D C3 8D FD 07 78 
C310:60 CE 0A D0 AD EA C9 C9 40 
C318:14 F0 05 C9 28 F0 06 60 94 
C320:A9 86 4C 0D C3 A9 87 4C 98 
C328:0D C3 20 91 CI CE 65 CA 23 
C330:AD 65 CA D0 F5 A9 00 8D 32 
C338:65 CA 60 AD IE D0 8D IE 79 
C340:D0 60 20 91 CI EE 03 D0 16 
C348:20 22 C9 AD 0B D0 C9 F5 Al 
C3 50:D0 F0 A9 00 8D 04 D4 A9 81 
C358:B0 8D 6E CA AC 51 CA A9 FF 
C360I20 99 D8 05 88 F0 28 8C AE 
C368:51 CA 20 2A C3 AD IE D0 D3 
C370:'A9 B8 8D 0B D0 A9 40 8D 98 
C378:0D D0 8D 0C D0 A9 14 8D 10 
C380:0F D0 A9 00 8D EB C9 8D 36 
C388:64 CA 68 68 4C D8 CI 18 E9 
C390:A2 0B A0 05 20 F0 FF A9 FE 
C398:FF 8D IB D0 A0 00 B9 8D F9 
C3A0:CA F0 07 20 D2 FF C8 4C 21 
C3A8:9E C3 20 B7 C3 A9 00 8D 42 
C3B0:1B D0 68 68 4C 3A C0 A9 04 
C3B8:00 8D 18 D4 AD 00 DC 29 44 
C3C0I10 D0 F4 A9 7F 8D 18 D4 F4 
C3C8t60 AD IE D0 8D 9E C9 D0 08 
C3D0:04 60 4C 66 C4 A0 04 AD C0 
C3D8:9E C9 D9 Al C9 F0 49 C9 E5 
C3E0:60 F0 EF 88 10 Fl A0 00 E4 
C3E8:AD 0A D0 D9 00 D0 90 25 0B 
C3F0X38 F9 00 D0 C9 04 B0 16 F5 
C3F8:AD 0B D0 D9 01 D0 90 IF 5D 
C400:38 F9 01 D0 C9 0A B0 06 2F 
C408:B9 01 D0 8D 0B D0 C8 C8 97 
C410:C0 0A D0 D4 60 38 B9 00 3B 
C418:D0 ED 0A D0 4C F4 C3 B9 4B 
C420:01 D0 ED 0B D0 4C 04 C4 51 
C428:8A 48 A2 32 A9 81 99 F8 FF 
C430:07 8C EC C9 20 9A C8 8D 25 
C438:08 D4 A9 81 8D 0B D4 20 AA 
C440:91 CI AC EC C9 A9 82 99 FA 
C448:F8 07 8C EC C9 20 9A C8 3D 
C450:8D 08 D4 20 91 CI AC EC 19 
C458:C9 CA 10 D0 A9 80 99 F8 04 
C460:07 8D 0B D4 68 AA 4C 42 48 
C468:C3 AD ED C9 CE ED C9 F0 4C 
C470:01 60 A9 03 8D ED C9 20 CF 
C478:D5 C7 20 24 C7 A0 05 B9 A9 
C480:92 C9 CD 0D D0 F0 04 88 2B 
C488:10 F5 60 AD 9F C9 D0 11 55 
C490:AD 0C D0 C9 F8 F0 04 EE 2D 
C498:0C D0 60 A9 01 8D 9F C9 4A 
C4A0:60 AD 0C D0 C9 18 F0 04 E8 
C4A8:CE 0C D0 60 A9 00 8D 9F C4 
C4B0:C9 60 CE EA C9 AD EA C9 64 
C4B8:F0 05 C9 14 F0 45 60 A9 7D 
C4C0:83 8D FE 07 A9 8B 8D FF 56 
C4C8:07 A9 29 8D EA C9 AD 0F 27 
C4D0:D0 C9 32 90 28 C9 78 B0 8E 
C4D8:24 AC 50 CA B9 07 CA 8D 63 
C4E0:0E D4 B9 08 CA 8D 0F D4 DD 
C4E8:A9 11 8D 12 D4 C8 C8 C0 7A 
C4F0:04 F0 04 8C 50 CA 60 A0 11 
C4F8:00 8C 50 CA 60 A9 20 8D D3 
C500:12 D4 60 A9 84 8D FE 07 CF 
C508:A9 8A 8D FF 07 60 A9 40 0A 
C510:8D 0D D0 A9 00 8D EB C9 32 
C518:4C 50 C5 AD 0B D0 C9 E0 81 
C520:F0 01 60 8A 48 20 3A C9 lA 
C528:8D 01 D4 20 91 CI 38 AD 09 
C530:0B D0 E9 08 8D 0B D0 AD IB 
C538:0F D0 C9 32 90 05 E9 08 50 
C540:8D 0F D0 AD 0D D0 C9 48 D2 
C548z90 C4 38 E9 08 8D 0D D0 54 
C550:20 DE C6 20 11 C7 A0 00 67 
C558:A9 CI 85 FB A9 07 85 FC 0B 
C560:B9 4B CA 8D 01 D4 A9 11 8D 
C568:8D 04 D4 A9 IC 91 FB 18 28 
C570:A5 FB 69 07 85 FB C9 E4 FF 
C578:F0 03 4C 6B C5 EE 61 CA F4 
C580:AD A0 C9 CE A0 C9 10 9D IB 
C588:A9 04 8D A0 C9 AD IE D0 B7 
C590:A2 00 A9 ID 9D C0 07 E8 5B 
C598:E0 IF D0 F6 A9 04 8D A0 FE 



C5A0 iC9 


AD 


IE 


D0 


A9 


00 


8D 


61 


17 


C5A8 :CA 


A2 


01 


DE 


A2 


06 


BD 


A2 


9B 


C5B0 :06 


C9 


31 


F0 


52 


C9 


2F 


F0 


EF 


C5 B8 : 3 B 


A2 


02 


FE 


11 


05 


BD 


11 


E3 


C5C0 :05 


C9 


3A 


F0 


4D 


A2 


00 


BD 


4A 


C5 C8 : 1 1 


05 


DD 


91 


07 


F0 


18 


90 


AF 


C5D0:0E 


BD 


11 


05 


9D 


91 


07 


9D 


24 


C5D8:88 


CA 


E8 


E0 


05 


D0 


F2 


AD 


85 


C5E0:53 


CA 


D0 


3F 


68 


AA 


60 


E8 


6E 


C5E8 :E0 


05 


D0 


DB 


AD 


53 


CA 


D0 


IF 


C5F0:32 


68 


AA 


60 


A9 


39 


9D 


A2 


IB 


C5F8:06 


CA 


BD 


A2 


06 


C9 


30 


F0 


C4 


C600:B8 


DE 


A2 


06 


4C 


B9 


C5 


CA 


F5 


C608iBD 


A2 


06 


C9 


30 


F0 


0C 


4C 


24 


C610:B9 


C5 


A9 


30 


9D 


11 


05 


CA 


2A 


C618:4C 


BB 


C5 


A9 


01 


8D 


53 


CA 


BD 


C620:4C 


B9 


C5 


A9 


00 


8D 


53 


CA 


3D 


C628:18 


AD 


60 


CA 


69 


05 


8D 


60 


C0 


C630:CA 


C9 


3A 


F0 


03 


4C 


40 


C6 


7C 


C638:A9 


30 


8D 


60 


CA 


EE 


5F 


CA 


F9 


C640:18 


A0 


04 


A2 


0B 


20 


F0 


FF 


67 


C648:A0 


00 


B9 


C3 


CA 


F0 


07 


20 


El 


C650:D2 


FF 


C8 


4C 


4A 


C6 


A9 


E0 


C6 


C658:8D 


0B 


D0 


8D 


0A 


D0 


A9 


86 


CF 


C660 :8D 


FD 
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You must avoid hungry birds as well as 
an automatic patrol robot in the Atari 
version of "High Rise/' 

Program 2: Atari High Rise 

Version by Kevin Mykytyn, Editorial 
Programmer 

12288:032,139,052,032,018,052,069 
1229 4:032,0 43,054, 169,000, 14 1 , 189 
12300:249,055,032,014,05 1,032,189 
12306: 199, 051, 032, 124, 051, 032, 25 1 
12312: 035, 057, 206, 254, 054, 209, 070 
12318:020, 173, 255,054, 141 , 25 4, 159 
12324:054, 032, 115, 050, 173, 065, 013 
12330: 006, 073, 001, 141, 065, 006, 078 
123 36: 032, 252, 055, 162, 000, 160, 197 
12342: 002, 202, 208, T53, 136, 208, 039 
12348:250,032,172,053,032,212,043 
12354: 054, 173, 242, 055, 208, 04 2, 0 72 
12360: 160,014, 185,214,055, 153, 085 
1 2366: 022, 032, 136, 0 16, 24 7, 173, 192 
123 72: 251 , 055, 024, 105, 005, 141 , 153 
12378:251,055,141,244,055,238,050 
12384: 24 1 , 055, 032, 172, 053, 169, 050 
12390: 120, 141, 2 50, 055, 173, 2 50, 067 

123 96:055,208,251,076,014,048,248 
12402: 173, 006, 055, 208, 007, 173, 224 
12408:012, 208, 041, 002, 208, 0 1 7, 0 96 

124 14:206,24 7,055.208, 145, 173, 136 
12420:248, 055, 141, 247, 055, 032, 142 
12426: 142, 056, 076, 020, 048, 162, 130 
12432: 006, 136, 208, 253, 202, 208, 133 

124 38: 250, 238, 032, 006, 173, 032, 1 13 
12444:006, 141, 000, 210, 208, 237, 190 
12450: 206, 238, 0 55, 208, 200, 238, 027 
12456: 24 9, 055, 032, 172, 053, 160, 121 
12462: 008, 185, 189, 055, 153, 026, 02 2 
12468:032, 136,016,247, 169, 100, 112 
1247 4: 14 1 , 250, 055, 173, 250, 055, 086 
12480: 208, 251, 160, 015, 185, 198, 185 
12486: 055, 153, 022, 032, 136, 016, 100 
12492:247, 173, 132, 002, 208, 251, 193 
12498: 032, 000, 053, 076, 006, 04 8, 169 
12504:216,2 06,250,055,173,249,085 

125 10: 055, 208, 110, 169, 000, 133, 129 
12516: 077, 165, 217, 240, 003, 076, 238 
1 2522: 073, 049, 0 32, 085, 052, 174, 187 
12528: 250, 054, 189, 035, 055, 24 0, 039 
12534: 060, 016, 028, 189, 0 80, 006, 113 
12540: 056, 2 33, 040, 157, 080, 006, 0 56 
12546: 189, 081 , 006, 233, 000, 157, 156 
1 2552: 081 , 006, 222, 045, 055, 016, 177 
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101 


1 4 1 


13626: 203 


1 33 


203 


165 


204 


105 


047 


13632: 000 


133 


204 


173 


245 


054 


105 


13638: I 70 


169 


003 


141 


245 


054 


084 


1 3644 : 1 60 


000 


189 


160 


053 


145 


015 


13650: 203 


032 


098 


053 


232 


206 


1 38 


I 3656 : 245 


054 


016 


242 


104 


168 


149 


13662: 104 


, I 70 


, 104 


096 


165 


203 


1 68 


1 3668 : 024 


, 105 


, 040 


133 


203 


165 


002 


13674 : 204 


, 105 


, 000 


133 


204 


096 


080 


13680: 170 


, 170 


, 128 


002 


1 28 


002 


200 


13686: 128 


, 002 


, 1 28 


002 


1 28 


, 002 


252 


1 3692 : 1 28 


, 002 


, 170 


1 70 


255 


, 255 


080 


13698: 192 


, 003 


, 192 


003 


192 


, 003 


, 203 


13704: 192 


, 003 


, 192 


003 


1 92 


, 003 


, 209 


137 10: 255 


, 255 


, 085 


, 085 


, 064 


, 001 


,119 


13716: 064 


, 001 


, 064 


, 001 


, 064 


, 00 1 


, 087 


13722: 064 


, 00 1 


, 064 


, 00 1 


, 085 


, 085 


, 1 98 


1 3728 : 255 


, 195 


, 1 95 


, 255 


,012 


, 048 


, 096 


13734: 012 


, 048 


, 195 


, 255 


, 195 


, 255 


, 102 


1 3740: 1 73 


, 239 


, 055 


, 1 74 


, 240 


, 055 


, 084 


13746: 160 


, 007 


, 032 


,210 


, 053 


, 173 


, 045 


13752: 238 


, 055 


, 162 


, 000 


, 160 


,015 


, 046 


1 3758: 032 


,210 


, 053 


, 173 


, 24 1 


, 055 


, 186 


13764: 162 


, 000 


, 160 


, 045 


, 032 


,210 


, 037 


13770: 053 


, 173 


, 242 


, 055 


, 162 


, 000 


,119 


13776: 160 


, 055 


,141 


, 007 


, 055 


, 142 


, 000 


13782: 008 


, 055 


, 140 


, 237 


, 055 


, 169 


,110 


13788: 000 


,141 


, 243 


, 055 


, 162 


, 003 


, 056 


13794: 160 


, 255 


, 200 


, 173 


, 007 


, 055 


, 052 


13800: 056 


, 253 


, 229 


, 055 


,141 


, 007 


, 205 
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13806: 055 


, 173 


, 008 


, 055 


, 253 


, 233 


, 247 


13812 


055 


1 4 1 


, 008 


055 


176 


234 


145 


13818 


1 73 


, 007 


, 055 


024 


125 


229 


095 


1 3824 


055 


1 4 1 


, 007 


055 


1 73 


008 


1 83 


1 3830 


: 055 


1 25 


, 233 


055 


141 


008 


111 


13836 


: 055 


, 1 52 


, 208 


009 


224 


002 


1 50 


1 3842 


: 1 44 


, 005 


1 1 72 


243 


055 


240 


109 


1 3848 


: 0 1 1 


, 009 


,016 


, 238 


243 


055 


084 


1 3854 


: 1 72 


, 237 


, 055 


, 1 53 


, 000 


, 032 


167 


1 3860 


: 238 


, 237 


, 055 


, 202 


,016 


, 184 


, 200 


1 3866 


: 096 


, 1 69 


, 000 


, 141 


, 239 


, 055 


230 


13872 


: 141 


, 240 


, 055 


, 169 


, 001 


,14 1 


, 027 


1 3878 


: 24 1 


, 055 


, 169 


,010 


,14 1 


242 


144 


1 3884 


: 055 


, 169 


, 005 


141 


238 


055 


21 1 


13890 


• 169 


014 


,141 


251 


055 


141 


069 


1 3896 


244 


055 


, 096 


032 


133 


056 


176 


1 3902 


160 


000 


169 


112 


153 


000 


160 


1 3908 


035 


200 


1 92 


003 


208 


248 


202 


13914 


1 69 


077 


153 


000 


035 


165 


177 


13920 


210 


200 


1 53 


000 


035 


200 


1 26 


13926 


1 65 


2 1 1 


153 


000 


035 


165 


063 


1 3932 


210 


024 


105 


040 


133 


210 


062 


13938 


165 


211 


1 05 


000 


133 


21 1 


1 7 1 


1 3944 


200 


1 92 


243 


208 


221 


169, 


073 


1 3950 


070 


153 


000 


035 


200 


169, 


24 1 


13956 


000 


153 


000 


035 


200 


169, 


177 


1 3962 


032 


153 


000 


035 


200 


169, 


215 


1 3968 


006 


153 


000 


035 


200 


192, 


2 1 8 


1 3974 


248 


208 


248 


169 


065 


153, 


217 


1 3980 


000 


035 


200 


1 69 


000 


153, 


201 


1 3986 


000 


035 


200 


169 


035 


153, 


242 


1 3992 


000 


035 


096 


1 65 


210 


133, 


039 


1 3998 


212 


165 


2 1 1 


1 33 


213, 


160 , 


244 


1 4004 


004 


1 65 


2 1 2 


1 53 


000 , 


035 , 


237 


14010 


200 


1 65 


213, 


153 


000 , 


035 , 


1 84 


14016 


165 


212 


024 , 


1 05 


040 


133, 


103 


1 4022 


212 


1 65 


213, 


105 


000, 


1 33 , 


002 


1 4028 


213 


200 


200, 


1 92 


24 1 , 


208 , 


1 78 


1 4034 : 


226 , 


096 


1 73, 


006, 


055, 


208 , 


206 


1 4040 ' 


027 , 


1 73 


032, 


006, 


056, 


233, 


23 1 


14046: 


040, 


074 


074 , 


074, 


074 , 


074 , 


1 20 


14052: 


141 , 


245 


055, 


169, 


005, 


056, 


1 3 1 


14058: 


237, 


245 


055, 


024, 


109, 


244 , 


1 24 


14064: 


055, 


141 


242, 


055, 


096, 


000 , 


06 1 


14070: 


000, 


000 


000, 


000, 


000, 


000, 


246 


14076: 


000, 


000 


000, 


000, 


000, 


000, 


252 


14082: 000, 


000 


000, 


000, 


000, 


000, 


002 


14088: 


000, 


000 


000 , 


001 , 


001 , 


002, 


0 1 2 


14094: 002, 


000 


000, 


001 , 


001 , 


002 , 


020 


14100: 


018, 


034 


050, 


066, 


000, 


040 , 


228 


14106: 


072, 


104 


136, 


168, 


072, 


096, 


162 


14112: 


120, 


144 


168, 


001 , 


001 , 


001 , 


21 1 


14118: 


001 , 


001 


001 , 


001 , 


001 , 


001 , 


044 


14124: 


001 , 


000 


000, 


000, 


000, 


000, 


045 


14130: 


000, 


000 


000 


000 


000, 


255, 


049 


14136: 


055, 


026 


255 


1 00 


100, 


100, 


180 


14142: 


144 , 


1 00 


000, 


008 


002, 


000, 


060 


14148. 


000, 


000 


000 , 


1 02 


1 53 


000 , 


067 


14154: 000, 


000 


000 , 


000 


195, 


036 , 


049 


14160: 024, 


000 


000 


000 


000, 


060, 


164 


14166' 


052, 


255 


245 


255 


060 


060, 


245 


14172: 024, 


060 


044, 


255 


175, 


255, 


137 


14178: 060, 


060 


024 


016 


056 


016, 


074 


14184: 048 


056 


016 


024 


048 


016, 


056 


14190: 


056, 


016 


052 


056 


168 


068, 


014 


14 196: 


004, 


016, 


056, 


016, 


024, 


056, 


032 


14202: 


016, 


048, 


024, 


016 


056, 


016, 


042 


14208: 


088, 


056, 


042, 


068 


064, 


016, 


206 


14214: 


056, 


016 


124, 


124 


040, 


040, 


022 


1 4220: 


040, 


243, 


243, 


217, 


243, 


204 , 


050 


14226: 


243, 


1 93, 


217, 


051 , 


035, 


047 , 


164 


14232: 050, 


037 , 


000, 


016, 


016 , 


016, 


031 


14238: 


016, 


016, 


000, 


000, 


045, 


037, 


016 


14244: 


046, 


000, 


000, 


000, 


000, 


04.4 , 


254 


14250: 


037, 


054 , 


037, 


044, 


000, 


000, 


086 


14256: 


000, 


000, 


000, 


000, 


038, 


044 , 


002 


14262: 047, 


047, 


050, 


000, 


000, 


000, 


070 


14268: 


000, 


167, 


16 1, 


173, 


165, 


I 28, 


214 


14274: 


175, 


182, 


165, 


178, 


112, 


114, 


096 


14280: 


101 , 


115, 


115, 


064 , 


102, 


105, 


034 


14286: 


114, 


101, 


098 , 


117, 


116, 


116, 


100 


1 4292: 


111, 


110, 


161, 


128, 


172, 


169, 


039 


1 4298: 


180, 


1 80 , 


1 72 , 


1 65, 


128, 


1 68, 


187 


14304: 


169, 


1 67 , 


1 68 , 


1 65, 


178, 


001 , 


048 


14310: 


010, 


1 00 , 


232 , 


000 , 


000, 


000, 


060 


14316: 


003, 


000 


000, 


000, 


000, 


000, 


239 


14322: 


000, 


000 


000 , 


000, 


000 , 


000, 


242 


I432B: 


000, 


000 


000, 


000 


173, 


032, 


197 


14334: 


006, 


201 


1 72 


1 44 


104, 


173, 


030 


14340- 


006, 


055 


208, 


099 


144, 


097, 


1 0 1 


14346: 


162, 


032 


1 69, 


001 


133, 


217, 


212 


14352: 


160, 


002 


1 85, 


032 


006, 


240, 


1 29 


14358 


010, 


201 


180 


176 


006 


056, 


139 


14364 


233 


002 


153 


032 


006 


136 


078 


1 4370 


016 


238 


1 65 


210 


024 


105 


024 


14376 


040 


1 33 


210 


1 65 


21 1 


105 


136 


14382 


000 


133 


21 1 


032 


171 


054 


1 35 


14388 


169 


020 


133 


213 


160 


000 


235 


14394 


136 


208 


253 


198 


213 


208 


250 


14400 


249 


202 


, 208 


204 


032 


133 


068 


14406 


056 


032 


, 149 


051 


032 


171 


049 


14412 


: 054 


169 


, 000 


133 


217 


206 


087 


14418 


: 244 


055 


, 206 


244 


055 


206 


068 


14424 


: 244 


055 


, 173 


239 


055 


024 


1 10 



14430 


• 1 05 


1 00 


14 1 


239 


055 


173 


139 


1 4436 


: 240 


055 


1 05 


000 


14 1 


240 


113 


14442 


: 055 


096 


096 


1 69 


000 


133 


14 3 


14448 


• 205 


1 69 


064 


133 


206 


162 


027 


14454 


031 


1 60 


000 


152 


145 


205 


043 


14460 


1 36 


208 


251 


230 


206 


20 2 


0 7 7 


1 4466 


0 1 6 


246 


096 


1 69 


000 


133 


022 


14472 


2 10, 


169 


064 , 


133 


211 


096 


2 5 1 


1 4478 


173 


034 , 


006 , 


208 


007 


173, 


23 1 


14484 


010, 


2 10, 


20 1 


003 


1 76 


022 , 


002 


1 4490 


1 73, 


006 , 


055, 


240 


0 14 


206 , 


080 


14496 


034, 


006, 


173, 


034 


006 , 


14 1, 


042 


14502 


000, 


210, 


208, 


006, 


076 , 


030 , 


184 


14508: 


057, 


238, 


034, 


006, 


165, 


216, 


1 20 


14514 


073 


1 28 


1 33 


216 


0 1 6 


052 


028 


1 4520 


198 


215 


208 


012 


169 


003 


22 I 


14526 


133 


2 1 5 


173 


066 


006 


073 


088 


14532 


001 


1 4 1 


066 


006 


173 


0 1 8 


089 


14538 


006 


205 


0 1 6 


006 


208 


0 1 7 


1 48 


14544 


173 


0 1 4 


208 


04 1 


00 1 


240 


1 1 7 


1 4550 


021 


1 69 


00 1 


1 4 1 


006 


055 


095 


1 4556 


1 4 1 


000 


055 


208 


011 


176 


043 


14562 


006 


238 


018 


006 


076 


236 


038 


1 4568 


056 


206 


018 


006 


096 


206 


052 


1 4574 


004 


055, 


240 


0 1 4 


1 73 


004 


216 


14580 


055 


201 , 


003 


208 


036 


1 69 


1 48 


1 4586 


000 


14 1, 


000 


2 1 0 


240 


029 


1 02 


1 4592 


1 69 


012, 


14 1 


004 


055 


174, 


043 


1 4598 


005 


055, 


1 89 


1 4 1 


055 


14 1, 


080 


1 4604 


000 


210, 


238, 


005 


055 


173, 


181 


14610 


005 


055 , 


201 , 


008 


208 


005 , 


244 


14616 


1 69 


000, 


14 1 


005 


055 


096 , 


234 


1 4622 


1 04 


1 04 , 


076, 


1 62 


048 


173, 


1 85 


14628 


000 


055, 


208, 


029 


1 73 


006, 


251 


14634 


055 


208, 


024, 


162 


005 


202, 


1 86 


14640 


1 89 


024, 


055, 


024 


105 


010, 


1 99 


14646 


205 


032, 


006, 


176, 


244 , 


232, 


181 


14652 


189, 


024, 


055, 


024 


105, 


003 , 


204 


14658 


14 1, 


032, 


006, 


096 


000, 


000, 


085 




The Apple version of "High Rise" is 
an exceptional arcade-style game. 



Program 3: Apple High Rise 

Version by Tim Victor, Editorial 
Programmer 

START ADDRESS: 0801 
END ADDRESS: 1BD8 



0801: 


A9 


00 


85 


EC 


A9 


80 


85 


ED 


AD 


0809: 


20 


DC 


13 


20 


A4 


IB 


20 


6F 


06 


0811: 


17 


A9 


20 


85 


E6 


8D 


E0 


IB 


BD 


0819: 


A9 


00 


8D 


D7 


IB 


8D 


D6 


IB 


05 


0821: 


A9 


28 


8D 


DD 


IB 


A9 


C0 


8D 


2E 


0829: 


DE 


IB 


20 


C7 


15 


A9 


40 


85 


45 


0831: 


E6 


20 


C7 


15 


A9 


00 


8D 


FE 


6E 


0839: 


IB 


8D 


FF 


IB 


2C 


57 


C0 


2C 


58 


0841: 


52 


C0 


2C 


54 


C0 


2C 


50 


C0 


8D 


0849: 


A9 


70 


8D 


FB 


IB 


A9 


0E 


8D 


B4 


0851: 


F9 


IB 


A9 


C4 


8D 


FA 


IB 


A9 


DE 


0859: 


0E 


8D 


FB 


IB 


A9 


00 


8D 


74 


El 


0861: 


0E 


8D 


81 


0E 


8D 


BE 


0E 


8D 


3D 


0869: 


9B 


0E 


8D 


A4 


0E 


8D 


Bl 


0E 


DE 


0871: 


8D 


BB 


0E 


SD 


C8 


0E 


8D 


F6 


62 


0879: 


IB 


A9 


0A 


8D 


F4 


IB 


A9 


00 


03 


0881: 


8D 


F3 


IB 


A9 


05 


8D 


9E 


0E 


FC 


0889: 


A9 


02 


8D 


84 


0E 


8D 


85 


0E 


A8 


0891: 


8D 


86 


0E 


AD 


F6 


IB 


F0 


03 


AF 


0899: 


4C 


10 


0A 


A9 


01 


8D 


E3 


IB 


D0 


08A1: 


A9 


01 


8D 


E2 


IB 


A9 


00 


8D 


B3 


08 A9: 


E4 


IB 


A9 


56 


8D 


E5 


IB 


A9 


71 


08B1: 


00 


8D 


E6 


IB 


A9 


00 


8D 


E7 


04 


08B9: 


IB 


A9 


01 


8D 


EC 


IB 


A9 


00 


El 


08C1: 


8D 


ED 


IB 


8D 


EA 


IB 


A9 


13 


7A 


08C9: 


8D 


EE 


IB 


A9 


00 


8D 


Fl 


IB 


8F 


08D1: 


A9 


06 


8D 


EF 


IB 


A9 


00 


8D 


F5 



mil Y Machine Language 
IVIL^V Entry Program For Atari 


L^naries Drannon. rrograrTi tiuiiur m 

MLX is a labor-saving utility that allows 
almost fail-safe entry of machine lan- 
guage programs published in compute!. 
You need to know nothing about machine 
language to use MLX— it was designed for 
everyone. 


to accept the next number. If you enter 
fewer than three digits, you can press 
the comma key, the space bar, or the 
RETURN key to advance to the next 
number. The checksum automatically 
appears in inverse video for emphasis. 

MLX Commands 

When you finish typing an ML listing 
(assuming you type it all in one ses- 
sion), you can then save the completed 
program on tape or disk. Follow the 
screen instructions. If you get any errors 
while saving, you probably have a bad 
disk, or the disk is full, or you've made 
a typo when entering the MLX program 
itself. 

You don't have to enter the whole 
ML program in one sitting. MLX lets 
you enter as much as you want, save it, 
and then reload the file from tape or 
disk later. MLX recognizes these 
commands: 

CTRL-S Save 
CTRL-L Load 
CTRL-N New Address 
CTRL-D Display 

To issue a command, hold down 
the CTRL key (CONTROL on the XL 
models) and press the indicated key. 
When you enter a command, MLX 
jumps out of the line you've been typ- 
ing, so we recommend you do it at a 
new prompt. Use the Save command 
(CTRL-S) to save what you've been 
working on. It will save on tape or disk, 
as if you've finished, but the tape or 
disk won't work, of course, until you 
finish the typing. Remember to make a 
note of what address you stop at. The 
next time you run MLX, answer all the 
prompts as you did before — regardless 
of where you stopped typing — then in- 
sert the disk or tape. When you get to 
the line number prompt, press CTRL-L 
to reload the partly completed file into 
memory. Then use the New Address 
command to resume typing. 

To use the New Address com- 
mand, press CTRL-N and enter the ad- 
dress where you previously stopped. 
The prompt will change, and you can 
then continue typing. Always enter a 
New Address that matches up with one 
of the line numbers in the MLX-format 
listing, or else the checksum won't 
work. The Display command lets you 
display a section of your typing. After 
you press CTRL-D, enter two addresses 
within the line number range of the 
listing. You can break out of the listing 


display and return to the prompt by 
pressing any key. 

Atari MLX: Machine 
Language Entry 

For ir^tructions on entering this listing, please 
refer to "COMPUTEI's Guide to Typing In 
Programs" in this issue of COMPUTE!. 

DA 100 GRAPHICS 0:DL = PEEK(56 
0) +256 t PEEK (561 ) +4: PO 
KE DL-1,71:P0KE DL+2, 
6 

NJ110 POSITION 8,0:? "MLX": 
POSITION 23,0:? " fZHin 
CCT2^«nTFraT" : POKE 710, 
0: ? 

JK 120 ? "Starting Address"; 

: INPUT BEG:? " Endin 
g Address" ;: INPUT FIN 
:? "Run/Init Address" 
; : INPUT STARTADR 

DD 130 DIM A (6) , BUFFERS (F IN- 
BEG+127) , T* (20) , F< (20 
) , CIO$ (7) , SECTORS ( 1 28 
) , DSKINVS (6) 

JJ 140 OPEN #1 , 4, 0, "K: " : ? :? 
, "Dape or Ei sk : " ; 

BH 150 BUFFER$ = CHRS (0) : BUFFE 
R$ (FIN-BEG+30) =BUFFER 
S: BUFFERS (2) ^BUFFERS: 
SECTORS=BUFFERS 

6C160 ADDR = BEG: CIOS="hhh " : C 
I OS (4) =CHR$ ( 170) : CIOS 
(5) ="LV" : CIOS (7) =CHRS 
(228) 

EJ 170 GET #1,MEDIA:IF MEDIA 
084 AND MEDIA06B TH 
EN 170 

PO 180 ? CHRS (MEDI A) : ? :IF M 
EDIAOASC ( "T" ) THEN B 
UFFERS=" " : GOTO 250 

PL 190 BEG = BEG-24: BUFFERS = CH 
RS (0) : BUFFERS (2) =CHRS 
( INT ( (FIN-BEG+127) / 12 
8) ) 

KF 200 H=INT (BEG/256) : L = BEG- 
H»256: BUFFERS (3) =CHRS 
(L) : BUFFERS (4) =CHRS (H 
) 

EC210 PINIT = BEG + 8: H=INT (PIN 
IT/256) : L=PINIT-H»256 
: BUFFERS (5) =CHRS (L) : B 
UPPERS (6) =CHRS (H) 

PB 220 FOR I»7 TO 24:READ A: 
BUFFERS ( I ) =CHRS (A) : NE 
XT I:DATA 24,96,169,6 
0, 141 , 2, 21 1 , 169, 0, 133 
, 10, 169,0, 133, 11,76,0 
» 0 

DP 230 H=INT (STARTADR/256) : L 
=STARTADR-H«256: BUFFE 
RS ( 15) =CHRS (L) : BUFFER 
S ( 19) =CHRS (H) 

KL 240 BUFFERS (23) =CHRS (L) : B 
UPPERS (24) =CHRS (H) 

HI 250 IF MEDI AOASC ( "D" ) TH 
EN 360 

00 260 ? :? "Boot Sisk or Bi 

nary 5i 1 e : " ; 
LI 270 GET #1, DTYPE: IF DTYPE 


"MLX" is a new way to enter long 
machine language (ML) programs with 
a minimum of fuss. MLX lets you enter 
the numbers from a special list that 
looks similar to BASIC DATA state- 
ments. It checks your typing on a line- 
by-line basis. It won't let you enter 
illegal characters when you should be 
typing numbers. It won't let you enter 
numbers greater than 255 (forbidden in 
ML). It won't let you enter the wrong 
numbers on the wrong line. In addition, 
MLX creates a ready-to-use tape or disk 
file. 

Using MLX 

Type in and save MLX (you'll want to 
use it in the future). When you're ready 
to type in an ML program, run MLX. 
MLX asks you for three numbers: the 
starting address, the ending address, 
and the run/init address. These num- 
bers are given in the article accompany- 
ing the ML program presented in MLX 
format. You must also choose one of 
three options for saving the file: as a 
boot tape, as disk binary file, or as boot 
disk. The article with the ML program 
should specify which formats may be 
used. 

When you run MLX, you'll see a 
prompt corresponding to the starting 
address. The prompt is the current line 
you are entering from the listing. It 
increases by six each time you enter a 
line. That's because each line has seven 
numbers — six actual data numbers plus 
a checksum number. The checksum 
verifies that you typed the previous six 
numbers correctly. If you enter any of 
the six numbers wrong, or enter the 
checksum wrong, the computer rings a 
buzzer and prompts you to reenter the 
line. If you enter it correctly, a bell tone 
sounds and you continue to the next 
line. 

MLX accepts only numbers as in- 
put. If you make a typing error, press 
the DEL/BACK SPACE; the entire 
number is deleted. You can press it as 
many times as necessary back to the 
start of the line. If you enter three-digit 
numbers as listed, the computer auto- 
matically prints the comma and goes on 
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068 AND DTYPEO70 TH 
EN 270 

6H 280 ? CHR« (DTYPE) : IF DTYP 

E=70 THEN 360 
PJ 290 BEG = BEG-30: BUFFER$ = CH 

R« (0) : BUFFERS (2) =CHRS 

(INT( (FIN-BEG+127 ) /12 

8) ) 

K6300 H=INT (BEG/256) : L = BEG- 
H*256: BUFFERS (3) =CHR$ 
(L) : BUFFERS <4) =CHRS (H 
> 

HH310 PINIT = STARTADR: H=INT ( 
PI NIT/256) : L = PINIT-Ht 
256: BUFFERS (5) =CHRS (L 
) : BUFFERS (6) =CHRS (H) 

AO 320 RESTORE 330: FOR 1=7 T 
O 30:READ A:BUFFERS(I 
) ==CHRS ( A) : NEXT I 

6A 330 DATA 169,0,141,231,2, 
133, 14, 169, 0, 141 , 232, 
2, 133, 15, 169, 0, 133, 10 
, 169, 0, 133, 1 1 , 24, 96 

OB340 H=INT (BEG/256) : L = BEG- 
H»256: BUFFERS (8)=CHRS 
(L) : BUFFERS ( 15) =CHRS ( 
H) 

DO 350 H=INT (STARTADR/256) : L 
= STARTADR-HjI256: BUFFE 
RS (22) =CHRS (L) : BUFFER 
S (26) *CHRS (H) 

JP360 GRAPHICS 0:POKE 712,1 
0:POKE 710,10:POKE 70 
9,2 

JK370 ? ADDR; " : " ; : FOR J = l T 
O 6 

NF380 GOSUB 570: IF N = -l THE 

N J=J-1:G0T0 380 
BF 390 IF N = -19 THEN 720 
01400 IF N«-12 THEN LET REA 

D=1:60T0 720 
AI410 TRAP 410: IF N = -14 THE 

N ? :? "New Address"; 

: INPUT ADDR:? : GOTO 3 

70 

JD420 TRAP 32767: IF NO-4 T 

HEN 480 
AJ 430 TRAP 430:? :? "Displa 

y : From" ; : INPUT F : , " 

To";: INPUT T:TRAP 327 

67 

HL 440 IF F<BEG OR F>FIN OR 
T<BEG OR T>FIN OR T<F 
THEN ? CHRS (253) ; " At 
least ";BEG; ", Not M 
ore Than ";FIN:GOTO 4 
30 

HH450 FOR I=F TO T STEP 6:? 

: ? I ; " : " ; : FOR K=0 TO 
5: N=PEEK (ADR (BUFFERS 
) +I+K-BEG) : TS="000" : T 
S (4-LEN (STRS (N) ) ) =STR 
S (N) 

HA460 IF PEEK(764)<255 THEN 
GET #1,A:P0P : POP :? 
:GOTO 370 
FH470 ? TS;",";:NEXT K:? CH 
RS ( 126) ; : NEXT I : ? : ? 
:GOTO 370 
6A480 IF N<0 THEN ? : GOTO 3 
70 

IIH490 A(J)«NjNEXT J 

JH 500 CKSUM = ADDR-INT ( ADDR/2 
56)»256:F0R 1-1 TO 6: 
CKSUM=CKSUM-t-A ( I ) : CKSU 
M-CKSUM-256* (CKSUM>25 
5) : NEXT I 

ICKS10 RF-128:S0UND 0,200,12 
,8:G0SUB 570:SOUND 0, 
0,0,0:RF-0:? CHRS(126 
) 

CN520 IF NOCKSUM THEN ? :? 



EK 530 



FL 540 



HB 550 

6N 560 
FI 570 
PH 580 

FB 590 

EB 600 
HL 610 



"Incorrect" ; CHRS (253 
) ; : ? I GOTO 370 
FOR W=15 TO 0 STEP -1 
iSOUND 0, 50, 10, W: NEXT 

M 

FOR I-l TO 6xP0KE ADR 
(BUFFERS) +ADDR-BEG+I- 
1 , A ( I ) I NEXT I 

ADDR-ADDR+6: IF ADDR<= 

FIN THEN 370 

GOTO 710 

N-01 Z-0 

GET #1 , A: IF A-155 OR 
A-44 OR A»32 THEN 670 
IF A<32 THEN N--AjRET 
URN 

IF A0126 THEN 630 
GOSUB 690: IF I-l AND 
T-44 THEN N--I1? CHRS 
(126) I I GOTO 690 
GOTO 570 

IF A<48 OR A>57 THEN 
580 

? CHRS ( A+RF) ; : N=N» 10+ 
A-48 

IF N>255 THEN ? CHRS ( 
253) ;: A=126: GOTO 600 
Z-Z+1 : IF Z<3 THEN 580 
IF Z«0 THEN ? CHRS (25 
3) ; : GOTO 570 
? " , ; : RETURN 



6N 620 
6J 630 

AN 640 

EB 650 

EH 660 
JH 670 

KC 680 

NO 690 POKE 752,1: FOR 1 = 1 TO 
3: ? CHRS (30) ; : GET #6 
,T:IF T044 AND TOSS 
THEN ? CHRS (A) ;: NEXT 
I 

PI 700 POKE 752,0:? " " ; CHRS 

( 126) ; : RETURN 
KH710 GRAPHICS 0:POKE 710,2 

6:P0KE 712,26:P0KE 70 

9,2 

FF 720 IF MEDI A = ASC ( "T" ) THE 

N 890 
OJ 730 REM 

OK 740 IF READ THEN ? :? "Lo 

ad File":? 
16 750 IF DTYPEO70 THEN 104 

0 

AE 760 ? :? "Enter AUTORUN.S 
YS "for automatic use" 
I? :? "Enter -filename 
" : INPUT TS 

BF 770 FS«TS:IF LEN(TS)>2 TH 
EN IF TS ( 1 , 2) <>"D: " T 
HEN FS="D: " : FS (3) =TS 

NJ 780 TRAP 870: CLOSE #2: OPE 
N #2, 8-4tREAD, 0, FS: ? 
2? "Working..." 

JH 790 IF READ THEN FOR I«l 
TO 6:GET #2,A:NEXT I: 
GOTO 820 

PO800 PUT #2,255:PUT #2,255 

DJ810 H«INT (BEG/256) : L = BEG- 
Ht256:PUT #2,L:PUT #2 
, H: H«INT (FIN/256) : L = F 
IN-Ht256: PUT #2, L: PUT 
#2, H 

NF 820 GOSUB 970: IF PEEK (195 
) >1 THEN 870 

IF 830 IF STARTADR = 0 OR READ 
THEN 850 

FD840 PUT #2,224:PUT #2,2:P 
UT #2,225:PUT #2,2:H= 
INT (STARTADR/256) : L=S 
TARTADR-Ht256: PUT #2, 
L:PUT #2,H 

HH 850 TRAP 32767: CLOSE #2:? 

"Fi ni shed . " : IF READ 

THEN ? J? :LET READ=«0 

:GOTO 360 
HF 860 END 

FO870 ? "Error "; PEEK (195); 



trying to access":? 
FS:CLOSE #2:? :GOTO 
760 

REM 

•7 



•Re 



HC 880 

HN890 IF READ THEN ? 
ad Tape" 

HI 900 ? :? :? "Insert, Rewi 
nd Tape."x? "Press PL 
AY " ; : IF NOT READ TH 
EN ? "& RECORD" 

LP 910 ? :? "Press l:a;*ilJ:i: wh 
•n ready : " ; 

JH920 TRAP 960:CLOSE #2:0PE 
N #2, 8-4»READ, 128, "C: 
":? :? "Working- . . " 

NH930 GOSUB 970: IF PEEK (195 
) >1 THEN 960 

HH940 CLOSE #2: TRAP 32767:? 

"Finished.":? :? 5IF 
READ THEN LET READ=0 
I GOTO 360 

HF 950 END 

CD 960 ? :? "Error "; PEEK (19 
5) I " when reading/wri 
ting boot tape":? j CL 
OSE #2iG0T0 890 

MB 970 REM laiDDEEiaEEXEraCEC! 



BEE 

EA980 X-321REM File#2,S20 
EF 990 ICCOM-8341 ICBADR-836: 
ICBLEN-8401 ICSTAT«835 
HD 1000 H=INT (ADR (BUFFERS) /2 
56) : L=ADR ( BUFFERS ) -H 
*256: POKE ICBADR+X , L 
: POKE ICBADR+X+1 , H 
FH1010 L«FIN-BEG+1 : H=INT (L/ 
256) : L=L-H*256: POKE 
ICBLEN+X , L: POKE ICBL 
EN+X+1 , H 
HD 1020 POKE ICCOM+X, 1 1-4»RE 
AD: A=USR ( ADR (CIOS) , X 



B6 1030 

KA 1040 

SC 1050 
HE 1060 

FC 1070 

EC 1080 

CP 1090 

AC 1 100 



) 

POKE 195, PEEK ( ICSTAT 
) : RETURN 
REM M=<>^t«]; 



IF READ THEN 1100 
? :? "Format Disk In 

Drive 1? ( Y/N) : " ; 
GET #1 , A: IF A< >78 AN 
D A089 THEN 1070 
? CHRS (A) : IF A=78 TH 
EN 1100 

? :? "Formatting..." 
J XIO 254, #2, 0, 0, "D: " 
:? "Format Complete" 
: ? 

NR=INT( (FIN-BEG4-127) 
/128) 2 BUFFERS (FIN-BE 
G4-2) =CHRS (0) : IF READ 

THEN ? "Reading " 

iGOTO 1120 
LE 1110 ? "Writing. . . " 
LI 1120 FOR 1 = 1 TO NR:S=I 
10 1130 IF READ THEN GOSUB 1 
220: BUFFERS ( It 128-12 
7) ^SECTORS: GOTO 1160 
PL 1140 SECTORS = BUFFERS ( I * 12 

8-127) 
AH 1 150 GOSUB 1220 
DN1160 IF PEEK (DSTATS) 01 T 

HEN 1200 
FB 1 170 NEXT I 

SH1180 IF NOT READ THEN EN 
D 

DH1190 ? :? :LET READ«0:GOT 
0 360 

JJ 1200 ? "Error on disk acc 
ess. "2? "May need -f o 
rmatt i ng . " : GOTO 1040 

U 1210 REM 
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Free Publications 

Use the handy order form in the tax package to 
obtain free IRS publications on over 90 different tax 
topics. 




BL 1220 REM M rf.l .mAM 



16 1230 

IH 1240 

NP 1250 

E6 1260 

KJ 1270 

BN 1280 

6L 1290 

NL 1300 

AI 1310 

JA 1320 

PN 1330 

CA 1340 

PF 1350 



BP 1360 

CO 1370 

PD 1380 

AA 1390 



KJ 1400 
K6 1 4 1 0 



REM Drive ONE 

REM Pass buffer in S 

ECTORS 

REM sector # in vari 
able S 

REM READ=1 for read, 
REM READ=0 for write 
BASE«=3»256 

DUNIT=BASE+1 : DCOMND= 
BASE+2: DSTATS=BASE+3 
DBUFL0=BASE+4: DBUFHI 
«BASE+5 

DBYTLO-BASE+8: DBYTHI 
-BASE+9 

DAUX1=BASE+10: DAUX2= 
BASE+1 1 

REM DIM DSKINVt(4) 

DSKINV<="hLS" : DSKINV 

♦ (4) =CHR$ (228) 

POKE DUNIT, 1 : A = ADR (S 

ECTOR$) : H-INT (A/ 256) 

: L-A-256*H 

POKE DBUFHI, H 

POKE DBUFLO,L 

POKE DCOMND, B7-5tREA 

D 

POKE DAUX2, INT (S/256 
)xPOKE DAUX 1 , S-PEEK ( 
DAUX2) «256 
A=USR(ADR<DSKINV$) ) 
RETURN 
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MODEMS 



Team Modem 


S210.9S 


Volksl2 


179 95 


Hayes 300 


137 00 


Hayes 1200 


385 00 


Compuserve 


17 95 


MPP1000E ^^^^^ 






69 95 


1030 


55 95 



COMMODORE 



1064 


. $ 54 95 


1670 


185 95 


Mi:ey Mo 


56 95 




49.95 


WestriCge 


59 95 


Teie Learning 


39 95 



PRINTERS 



LX90 / tractor/Atari interlace . 
LX90/ Tractor/IBM interlace. 

Comrex 220 Atan/CommcxJore 

HS80 Letteriet 

RX80 $209, 

JX80 449 

FX185 455 

LOT 500 I PAR) 950 

SGioSTARMICRONICS.,2^„^ 



EPSON ....$235.00^ 

235.00 

99,00 

319 00 

,00 RX100 329 00 

00 FX85 332 00 

00 LX80 21100 



00 L01500(SER) 



999.00 



SGIOC 
SGI 5 
SD10 
SD15 
SR10 
SR15 

Powertype. 



MSP10. 

MSP15 
MSP20. 
MSP25. 



CITIZEN 



235 
369 
321 
441 
469 
58? 
299 

. S275 

439 
439 
549 



Printer Ribbons • Dust Covers 
Available 




,09,....!'*NAS0Nip H3,„ 

1092 369 00 

1093 425 00 

3151 425 00 

0.,™,e,0 S.7095 

Okima!e20 210 00 

182 219 95 

192 349 95 

193 515 00 
84 640 95 

808/NLQ...f^.^™... $149.95 

1080 199 95 

1380 259 95 

1385 295 00 



White 20 LB 

2500ShtsLa2 Edge S24.95 

lOOOSmsLaz Edge 14.95 

500ShtsLar Edge 9 95 

ASSORTED PASTELS 

2500SntsLa: Edge $24 95 

1000 Shis La2 Edge 24 95 

500 Shis La2 Edge 14.95 

Vaking Labels 1000 QTY 9.95 



M|^JaEl!QiI 



520ST 

Haba Wills 29.95 

Haba Checkmmder 49.95 

Haba Word 49 95 

Hippo-C 49 95 

VIP. Professional 79 95 



Infocom games 
Hex 

C-128 

Jane 

Word Pro 128 
Word Writer 1 28 

PrinlShop 
Graphics Library I 
Graphics Library II. . 
Atari Paperclip. 
C-64 Paperclip 
C-64 Paperclip/Spell 
Atari Homepak 



29,95 
. 29.95 



32 95 
65 95 
49 95 

28 50 
17 50 

.17.50 
,36.95 
45 95 
57 95 
31 95 



"Where Prices are Bom, Not Raised." 

H/TE HOUSE 
COMPUTER 



P.O. Box 4025, Willlamsport, PA 17701 



lAonCay Trwu Ffidjy 
9am ■ 6p m 



CALLTOLL FREE 
1-800-351-3442 



IN PA CALL 
1-717-322-7700 



Indus GT 




1050 


149 95 


Happy 1050 


319 95 


Happy Enhancer 


155 95 


COMMODORE 


Indus GT 


S229 00 


1541 


155 95 


1571 


249 95 


1572 


375 95 


MSD Dual 


459 95 


Enhancer 2000 


175 95 




rBONUS 5V4 3V2 1 


SS/DD $ 


9.50- 


DS/DD 


13 50 - 


NO LABEL (with Pen & Fiip n iiie) 


SS/DD $ 


10 50 - 


DS/DD , 


14 50 - 


MAXELL 




MD1 S 


15.95 32.95 


MD2 


19 95 38 95 


MEMOREX 




SS/DD S 


12 50 29 95 


DS/DD 


16 50 34 95 


FF30/20SS/DD. 


- 59.95 


FF50/20SS/DD. 


36.95 - 


FF50/20DS/DD. 


42.95 - 


AI Diskettes Carry A Utetirie Warranty 



ATARI 

1150 49 95 

LPRINT/PORr 49 95 

LPRINT/ 16K 69 95 

UPRINT/64K 79.95 



COMMODORE 



PPI 

G-Wiz . 
TYMAC 
Xetec/8K 



S39 95 
48 95 
54 95 
64 95 



ATARI 

520ST/RGB CALL 



520/ST/Mono 

800XL 

130XE 



CALL 
.579 95 
139 95 



COMMODORE 



C-64 
C128 



S139 95 
?75 95 



TEKNIKA 

MJ-10 Si 78 95 

MJ-22 254.95 

COMMODORE 

1802 . 



1901 
1902 



SM124 . . 
SCI 224 



ZVM 122 
ZVM 123 



ATARI 



ZENPTH 



NEC 



SC100 



S185 95 
CALL 
259 95 

S174 95 
335.95 

S74 95 
74 95 

SI 25 00 
79 95 
99 95 

Sr7 00 
127 00 
145 00 

175 95 
339 95 

399 00 
469 00 
539.00 

S325.00 

Cclor TV/RGB CALL 

SAMSUNG 

S95 00 

89 95 

SAKATA 



1205 
1260 

1201 

AMDEK 

300G 

300A 

31 OA 

Color 330 
Color 500 
Color 600 
Color 700 
Color 710 

SYLVANIA 

13" Cclor TV/RGB 
20' 



HLA 
HLG 



$179 00 



AMERICAN EXPRESS 5% 



No depoan on C 0 D Ofd^fs Free tfeigfit on an 
pf«9a>d cain orders o*«f $300 m tr>e Continental 
USA APO and FPO orders add « 00 pet hund^ 
rod For Pnonty Mail ad S10.00 per hundred Free 
shipping for PA residems. PA residents add 6*/> 
sates Ux. All de'ectrve products must have a 
pnor RA number. 



